 Arc ()    ( Graph)
 ----------------------------------
  .

 :
  Procedure Arc(X, Y : Integer; StAngle, EndAngle, Radius : Word);

 :
Real, Protected

 :
    StAngle  EndAngle, 
 Radius,   
 (X, Y),   .

 :
    .

  :
 Circle
 Ellipse
 GetArcCoords
 GetAspectRatio
 PieSlice

 :
 Arc.PAS



{Arc.PAS}
----------
{     Arc }

Uses Graph;

Var Gd, Gm : Integer;
    Radius : Integer;
Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, 'C:\BP\BGI'); {   BGI  }
 If GraphResult <> grOk Then Halt(1);
 For Radius:=1 To 5 Do Arc(100, 100, 0, 90, Radius * 10);
 ReadLn;
 CloseGraph;
End.
